home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 59 / Tiger_Disk_059_19xx_Tiger-Crew-Disk_de_Side_C.d64 / 001 -ende- (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  391b  |  9 lines
  1. 1 fori=2to8step.9  :s=54272:poke54296,15:forj=1to6:pokes+0,255
  2. 11 printtab(a)"[157][157]ende";:poke646,i:a=a+1
  3. 21 printtab(a)"                                        [157][157][157][157][157][157][157][157][145]";:pokes+4,17
  4. 31 printtab((a)+1)"[157][157][157][157][157][157][157][157][157][157]                                         ";
  5. 41 printtab(a):poke54276,33:poke54278,240:poke54273,3+abs(4-j):
  6. 51 printtab((a)+2)"[145][145][159]          [150]     [156]          [154]     [129]          [157][157][157][157][157][157][157][157][157]";
  7. 61 print"         ":
  8. 71 :pokes+4,32:next:next
  9.